#clean array value
BWSPOOL "START"
BWSPOOL "\r\n"
for {set x 0} {$x<=999} {incr x} {
SETVAL index($x)=[GETVAL init]
SETVAL array1($x)=[GETVAL init]
SETVAL array2($x)=[GETVAL init]
SETVAL array3($x)=[GETVAL init]
SETVAL array4($x)=[GETVAL init]
}
BWSPOOL "END"
BWSPOOL "\r\n"
